home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / DMTDEMOS / DSKNUM.DEM < prev    next >
Text File  |  1994-07-02  |  665b  |  35 lines
  1. program DskNumSample;
  2.  
  3.  uses crt, DMT;
  4.  
  5.  var
  6.    Num1,
  7.    Num2      : word;
  8.  
  9.    DrvLetter : char;
  10.  
  11. begin
  12.   Color( 7, 0 );
  13.   clrscr;
  14.  
  15.   write( 'Select drive to check ( A-Z ) [ :]');
  16.   gotoxy( wherex - 3, wherey );
  17.   DrvLetter := upcase( readkey );
  18.   writeln( DrvLetter );
  19.  
  20.   DskNum( DrvLetter, Num1, Num2 );   { Call DskNum procedure }
  21.  
  22.   if ( ErrFlag ) then
  23.     begin
  24.       writeln( #7 );
  25.       writeln( ShowError( GetErrCode ) );
  26.     end
  27.   else
  28.     begin
  29.       clrscr;
  30.       writeln( 'Drive specified    : ', DrvLetter );
  31.       writeln( 'Disk serial number : ', WrdToHex( Num2 ), '-', WrdToHex( Num1 ) );
  32.     end;
  33.  
  34.   GetEnter;
  35. end.